program main
implicit none
real :: arr(-1:3)
arr = 0.0;
write(*,*) arr(-1)
write(*,*) arr(3)
end program main    